home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / cskipwhite.e < prev    next >
Text File  |  1980-01-05  |  270b  |  16 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipWhite(pos:PTR TO CHAR)
  4.   DEF c
  5.   WHILE (c:=pos[])
  6.     SELECT c
  7.       CASE 32; INC pos  /* SPACE */
  8.       CASE  9; INC pos  /* TAB */
  9.       CASE 10; INC pos  /* LF */
  10.       DEFAULT; RETURN pos
  11.     ENDSELECT
  12.   ENDWHILE
  13. ENDPROC pos
  14.   /* cSkipWhite */
  15.  
  16.